(Fopen_dribble_file): Check for failure.

diff --git a/src/keyboard.c b/src/keyboard.c
index 209bf9dc7c978251e798de0a8b867224f1cb3828..5787276e554c48476ff4a9f66ae87add30aa6b71 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -6890,6 +6890,8 @@ If FILE is nil, close any open dribble file.")
     {
       file = Fexpand_file_name (file, Qnil);
       dribble = fopen (XSTRING (file)->data, "w");
+      if (dribble == 0)
+       report_file_error ("Opening dribble", Fcons (file, Qnil));
     }
   return Qnil;
 }